www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/Count/inc_config_model.asp

    <%

' ======================== 参 数 设 置 ===========================

public CFG_Connpath,CFG_DefaultSite,CFG_ZoneServer,CFG_IPLong,CFG_CheckOnlineS,CFG_CacheName,CFG_isCan,CFG_SaveOnline_0,CFG_AutoDel,CFG_AutoDelBig,CFG_SaveOnline

' 数据库路径
%>
<!--#include file="inc_config_dbpath.asp"-->
<%
' 默认站点的ID
CFG_DefaultSite		= $CFG0

' 服务器所在时区
CFG_ZoneServer		= $CFG1

' IP保存位数
CFG_IPLong			= $CFG2

' 检测在线用户间隔（秒）
CFG_CheckOnlineS	= $CFG3

' 服务器缓存名称
CFG_CacheName		= "$CFG4"

' 统计器启用
%>
<!--#include file="inc_config_isCan.asp"-->
<%

' 自动删除×天前的内容信息
CFG_AutoDel			= $CFG5

' 对于大站，自动删除×天前的内容信息
CFG_AutoDelBig		= $CFG6

' 允许使用在线用户统计的站点
CFG_SaveOnline_0	= "$CFG7"

' 超管用户名
CFG_sAdminName		= "$CFG8"

' 超管密码
CFG_sAdminPass		= "$CFG9"

' FSO名称
CFG_StrFSO			= "Scripting.FileSystemObject"


' ===================== 公用代码，请勿修改 =======================

Public SiteID

SiteID = Request("SiteID")
if SiteID = "" then SiteID = CFG_DefaultSite
if IsNumeric(Siteid)=false then Response.Redirect "help.asp?errid=5"

CFG_SaveOnline		= CFG_CanSave(SiteID,CFG_SaveOnline_0)

function CFG_CanSave(SiteID,CanSiteID)
  select case lcase(CanSiteID)
    case "all"
	  CFG_CanSave=true
    case "no"
      CFG_CanSave=false
    case else
      if instr(","&CanSiteID&",",","&SiteID&",") then
	    CFG_CanSave=true
      else
	    CFG_CanSave=false
      end if
  end select
end function
%>